
'
' *  NHibernate 代码模版
' 

Imports System.Collections.Generic

Namespace NCS
	''' <summary>
	'''	
	''' </summary>
	<Serializable()> _
	Public Class curveData

		#Region "构造方法"
		Public Sub New()
			m_methodid = 0
			m_standardid = 0
			m_eleArea = 0
			m_eleInt = 0
			m_ele = Nothing
			m_weight = 0
			m_id = 0
			m_calcconc = 0
			m_sampleid = 0
			m_quan = 0

			m_wlweight = 0
		End Sub
		#End Region


		#Region "私有变量"
        Private m_methodid As Integer
        Private m_curvexishuid As Integer

		Private m_standardid As Integer
		Private m_eleArea As Double
		Private m_eleInt As Double
		Private m_ele As String
		Private m_weight As Double
		Private m_id As Integer
		Private m_calcconc As Double
		Private m_sampleid As Integer
		Private m_quan As Double
		Private m_wlweight As Double
        Private m_curvexishu As curveXishu
		#End Region


		#Region "公有属性"

		'''<summary>
		'''
        '''</summary>
        Public Overridable Property curveXishu() As curveXishu
            Get
                Return m_curvexishu
            End Get
            Set(ByVal value As curveXishu)
                m_curvexishu = value
            End Set
        End Property
		Public Overridable Property methodid() As Integer
			Get
				Return m_methodid
			End Get
			Set
				m_methodid = value
			End Set
        End Property
        Public Overridable Property curvexishuid() As Integer
            Get
                Return m_curvexishuid
            End Get
            Set(ByVal value As Integer)
                m_curvexishuid = value
            End Set
        End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property standardid() As Integer
			Get
				Return m_standardid
			End Get
			Set
				m_standardid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property eleArea() As Double
			Get
				Return m_eleArea
			End Get
			Set
				m_eleArea = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property eleInt() As Double
			Get
				Return m_eleInt
			End Get
			Set
				m_eleInt = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property ele() As String
			Get
				Return m_ele
			End Get
			Set
				m_ele = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property weight() As Double
			Get
				Return m_weight
			End Get
			Set
				m_weight = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property id() As Integer
			Get
				Return m_id
			End Get
			Set
				m_id = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property calcconc() As Double
			Get
				Return m_calcconc
			End Get
			Set
				m_calcconc = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sampleid() As Integer
			Get
				Return m_sampleid
			End Get
			Set
				m_sampleid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property quan() As Double
			Get
				Return m_quan
			End Get
			Set
				m_quan = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property wlweight() As Double
			Get
				Return m_wlweight
			End Get
			Set
				m_wlweight = value
			End Set
		End Property

		#End Region

		#Region "Rewrite Equals and HashCode"
		''' <summary>
		''' 
		''' </summary>
		Public Overloads Overrides Function Equals(obj As Object) As Boolean
			If Me Is obj Then
				Return True
			End If
			If (obj Is Nothing) OrElse (obj.[GetType]() IsNot [GetType]()) Then
				Return False
			End If
			Dim castObj As curveData = DirectCast(obj, curveData)
			Return (castObj IsNot Nothing) AndAlso (m_id = castObj.id)
		End Function
		''' <summary>
		''' 用唯一值实现GetHashCode
		''' </summary>
		Public Overloads Overrides Function GetHashCode() As Integer
			Dim hash As Integer = 57
			hash = 27 * hash * m_id.GetHashCode()
			Return hash
		End Function
		#End Region
	End Class
End Namespace
